home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Tools / ShareMailGiftware / Anim2mpegS / An2mp next >
Encoding:
Text File  |  2002-11-18  |  1.2 KB  |  47 lines
  1. echo "c"
  2. copy c:copy t:copy
  3. t:copy c:delete t:del
  4. assign Split: Split
  5. assign yuvs: yuvs
  6. Requestfile >env:ANIMname DRAWER RAM: TITLE="Choose anim to convert"
  7. if warn
  8.    echo >env:msg "Operation canceled....!"
  9.    skip end
  10. endif
  11. if not exists $ANIMname
  12.    echo >env:msg "File does not exist....!"
  13.    skip end
  14. endif
  15. Requestfile >env:ANIMdest DRAWER SYS: FILE Default.mpg TITLE="Choose destination path."
  16. if warn
  17.    echo >env:msg "Operation canceled....!"
  18.    skip end
  19. endif
  20. Requestchoice >env:mode "" "Do you want scaling ?" Yes No
  21.  
  22. if $mode eq 1
  23.    SmartScale ask $ANIMname
  24. else
  25.    SmartScale env $ANIMname
  26. endif
  27.  
  28. t:del >nil: split:#? yuvs:#? env:FT env:din
  29. buildanim $ANIMname Split: SPLIT VERBOSE
  30. echo "*N Animation is split. Now converting pictures.*N*N"
  31.  
  32. t:copy convertMPimage t:cmi
  33. T:copy ppmtoyuvsplit t:yuv
  34.  
  35. ConPix2 $mode
  36.  
  37. t:del >nil: t:cmi t:ppm t:iff t:pic.#? t:yuv env:mode
  38. mpeg -h $xout -v $yout -a 1 -b $V yuvs:pic -s $ANIMdest
  39. echo >env:msg " Mpeg animation complete."
  40. lab end
  41. t:del >nil: yuvs:#? env:ANIMname env:ANIMdest t:copy env:V
  42. Requestchoice >nil: "" "$msg" OK
  43. t:del >nil: env:msg env:xin env:yin env:xout env:yout t:del
  44. assign Split: REMOVE
  45. assign yuvs: REMOVE
  46. endcli
  47.